FUNCTION ZFIFM_VIM_DETERM_DOCTY_NPO.
*"--------------------------------------------------------------------
*"*"局部接口：
*"  IMPORTING
*"     REFERENCE(DOCUMENT_HEADER) TYPE  /OPT/VIM_1HEAD
*"  EXPORTING
*"     REFERENCE(VALID) TYPE  FLAG
*"  TABLES
*"      INDEX_ITEM STRUCTURE  /OPT/VIM_1ITEM OPTIONAL
*"--------------------------------------------------------------------

  DATA:
     LV_JSDDH TYPE ZFIT079_HEAD-JSDDH.

  LV_JSDDH = DOCUMENT_HEADER-CUSTOM_FIELD0.

  SELECT SINGLE *
    INTO @DATA(LS_ZFIT079_HEAD)
    FROM ZFIT079_HEAD
   WHERE JSDDH = @LV_JSDDH.

  IF LS_ZFIT079_HEAD-JSDLX = '02'. "无PO
    VALID = 'X'.
  ENDIF.
ENDFUNCTION.
